home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 28 / Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_B.d64 / directory zeigen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  195b  |  7 lines
  1. 49000 print"[147]":open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
  2. 49010 geta$,a$,h$,l$:ifstthensys65484:close1:goto49050
  3. 49020 printasc(h$+e$)+256*asc(l$+e$);
  4. 49030 geta$,b$:ifa$thenprinta$b$;:goto49030
  5. 49040 printa$:goto49010
  6. 49050 poke198,0:wait198,1:poke198,0:print"[147]":end
  7.